#
<init>
subevent(mapinit,);
zukan(warppos:*all,|=,haikyo);

#Kio
if(evf(*sw:pr_lockdark) != 0); fc(c2,apr,=,1); endif;


#O
<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,14,-24,center); fc(*actor,dir,=,d); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#nY
<hazure>
evflag(*inmap:item,=,0);
mc(114,evtime,);
if(evf(*sw:pr_lockdark) == 0); fc(c2,apr,=,0); endif;


#S[
<goal>
if(evf(*inmap:item) >= 2);
item(get,toolset,1); or; item(get,r,1); or; item(get,ڊor,1); if(nowres); evflag(*inmap:item,=,1); sound(select); text(0,w%it[*toolset].nmicxƁw%it[*r].nmicxƁw%it[*ڊor].nmicxɓꂽI); else; text(0,w%it[*toolset].nmicxƁw%it[*r].nmicxƁw%it[*ڊor].nmicxȏ͎ĂȂB); endif;
fc(c2,apr,=,1);
end;
endif;
if(evf(*inmap:item) != 0); text(0,ȏ͓ɉ悤B); end; endif;
text(0,ɉcB);
evflag(*inmap:itchecked,=,1);


<shikyuu>
fc(*actor,pic,==,mame); or; fc(*actor,pic,==,demond); if(nowres); text(1,(face=+evfch,swait=-1),uA}}pˁHv); end; endif;
fc(*actor,pic,>=,valanorpa); and; fc(*actor,pic,<=,mutou); if(nowres); text(1,(face=+evfch,swait=-1),uA̓ip[̎pˁH@ip[Ďɖf˂v); end; endif;
fc(*actor,pic,==,shina); or; fc(*actor,pic,==,jshina); if(nowres); text(1,(face=+evfch,swait=-1),u}̎pĂƂ́AL~͂̂hHv); end; endif;
fc(*actor,pic,==,senksha); or; fc(*actor,pic,==,senkshag); if(nowres); text(1,(face=+evfch,swait=-1),uAȂ񂾂ȎpˁBȃmԂ炳āA{Nɂǂƌ񂾂Hv); end; endif;
fc(*actor,pic,==,dhmo); or; fc(*actor,pic,==,dhmopure); if(nowres); text(1,(face=+evfch,swait=-1),uRAႠS{N̏ˁHv); end; endif;
fc(*actor,pic,==,coral); if(nowres); text(1,(face=+evfch,swait=-1),uAƌ`epˁHv); end; endif;
fc(*actor,pic,==,ikenaitsuki); or; fc(*actor,pic,==,ikenai2); if(nowres); text(1,(face=+evfch,swait=-1),uAH@{N͌cqł͂ȂHv); end; endif;
fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),uAȂ񂾂d̂pˁH@Ƃqlɂ͌h悤ȓ鎖肷CBx_[W^ĂKv邩ˁv); end; endif;
#fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),uAȂ񂾂d̂pˁH@Ƃqlɂ͌h悤ȓ鎖肷CBxɂ߂ĂKv邩ˁv); end; endif;
#fc(*actor,pic,>=,yj-a1); and; fc(*actor,pic,<=,yj-c3); if(nowres); text(1,(face=+evfch,swait=-1),uAȂ񂾂d̂pˁH@Ƃqlɂ͌h悤ȓ鎖肷CBx%cdp[*vp]ĂKv悤ˁv); end; endif;
fc(*actor,pic,>=,yj-a4); and; fc(*actor,pic,<=,yj-a4-ert); if(nowres); text(1,(face=+evfch,swait=-1),uAƗd̂pˁH@Ƃqlɂ͌hCBɂĂ͂Ƃ͂ƌĂ܂ˁv); end; endif;
fc(*actor,pic,>=,yj-a5); and; fc(*actor,pic,<=,yj-a5-ert); if(nowres); text(1,(face=+evfch,swait=-1),uAƗd̂pˁH@Ƃqlɂ͌hCBł͂茩Ă܂AEgˁv); end; endif;
fc(*actor,pic,==,metaele); or; fc(*actor,pic,==,hollele); if(nowres); text(1,(face=+evfch,swait=-1),uA΂藝nLpˁHv); end; endif;
fc(*actor,pic,==,shikyuu); if(nowres); text(1,(face=+evfch,swait=-1),u{NH@̔pВTȎllBip[炯ŕȂĂ܂Ă邯ǂ˂B{Nip[Ƃ悭Ԉ邵Âv); end; endif;
#\ru΂̓Aglł́AV_Q[XoˁBsbVƂ͈Ⴄv
fc(*actor,pic,==,seiyu); or; fc(*actor,pic,==,seiyu-2); if(nowres); text(1,(face=+evfch,swait=-1),uA͂̎ЂJĂl̎pˁHv); end; endif;
#@{NƓŔĂނ肵Ă
#@ΑOɓAgl̈pŎ̎҂ǁAlႢ
#fc(*actor,pic,==,haniwa); if(nowres); text(1,(face=+evfch,swait=-1),uA̐l`͒ˁBAgl̔V_Q[Ă̂Hv); end; endif;
fc(*actor,pic,>=,kokeshi); and; fc(*actor,pic,<=,buzzou); if(nowres); text(1,(face=+evfch,swait=-1),uAl`W߂Hv); end; endif;
fc(*actor,pic,>=,mame); if(nowres); text(1,(face=+evfch,swait=-1),uAϐgHv); end; endif;
#@΂l`ĂƁAɂĂ̏񂪓ĕ

zukan(map:pВn,!=,0); if(nowres); text(1,(face=+evfch,swait=-1),lluA甭悤ˁB߂łƂIv); end; endif;
#item(check:eq,colcell,1); if(nowres); text(1,(face=+evfch,swait=-1),lluA甭悤ˁB߂łƂIv); end; endif;
item(check:eq,toolset,1); if(nowres); text(1,(face=+evfch,swait=-1),lluA甭悤ˁBłAɂ͖CˁHv); end; endif;
#evflag(*inmap:item,!=,0);
#zukan(item:toolset,==,1);
if(evf(*inmap:itchecked) == 1); text(1,(face=+evfch,swait=-1),lluAL~͑ɋCȂ悤ˁH@͋C邱ƂIkkIv); end; endif;
text(1,(face=+evfch,swait=-1),llurĂˁ`BɋCtȂƂˁv);
#if(evf(*inmap:item) == 0); text(1,(face=+evfch,swait=-1),lluAL~͑ɋCĂȂ悤ˁHv); endif;
#@Ȃ݂ɓ삩̂͂߂Ȃ


<to_b1>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,r); fc(*actor,float,=,0); changemap(pВn); fade(in,(type=fade,color=000000,wait=16));